Imports System.Data.SqlClient
Partial Class conexion
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Try
            Dim cn As New SqlConnection("Password=wssadmin;Persist Security Info=True;User ID=adminwss;Initial Catalog=SharePoint_Poderosa;Data Source=MINDB01")
            cn.Open()
            Dim cmd As New SqlCommand()

        Catch ex As Exception
            Response.Write(ex.Message)
        End Try
        
    End Sub
End Class
